|
INVENTOR VBA : Abmaße Toleranz in Zeichnung idw auslesen
VOSTA1 am 20.02.2006 um 10:46 Uhr (0)
Hallo!Thema immer noch aktuell!Wer kann weiterhelfen?MFG
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Abmaße Toleranz in Zeichnung idw auslesen
VOSTA1 am 20.02.2006 um 17:41 Uhr (0)
Den String hab ich zur Erläuterung von Hand dazugeschrieben!Er beschreibt mit welcher Toleranz Methode ich die Bemaßung erstellt habe.MFG
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Abmaße Toleranz in Zeichnung idw auslesen
VOSTA1 am 20.02.2006 um 13:53 Uhr (0)
Ich bekomme nur 132und ich bekomme H7 einzeln und nicht zusammenhängendwenn ich den gesammten String String bekommen würde, wäre ich auch schon einen Schritt weiter.MFG
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Abmaße Toleranz in Zeichnung idw auslesen
VOSTA1 am 30.01.2006 um 11:48 Uhr (0)
Hallo,wie kann man mit VBA die Grenzwerte/ Passungen - Größengrenzwerte auslesen732 H7 (732,08 732,00)also 732,08 und 732,00 oderGrenzwerte/ Passungen - Toleranz auslesen732 H7 (0,08 0,00)also 0,08 und 0,00 mit oSheet.DrawingDimensions.Item(1).Tolerance.LoweroSheet.DrawingDimensions.Item(1).Tolerance.upperkomme ich an die Toleranzen heranwenn ich 732 +0,1 habe -0,2mit oSheet.DrawingDimensions.Item(1).Tolerance.uppererhalte ich +0,1und mit oSheet.DrawingDimensions.Item(1).Tolerance.Lowererhalte ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Abmaße Toleranz in Zeichnung idw auslesen
VOSTA1 am 20.02.2006 um 12:52 Uhr (0)
Hallo,ich bekomme mitoSheet.DrawingDimensions.Item(1).ModelValue das Maß als doubleoSheet.DrawingDimensions.Item(1).Tolerance.Lower oSheet.DrawingDimensions.Item(1).Tolerance.Upperhier die von Hand eingebenen Toleranzen als doubleoSheet.DrawingDimensions.Item(1).Tolerance.ShaftTolerancedas Toleranzfeld als String aber nur z.B H7 ohne die GrenzmaßeoSheet.DrawingDimensions.Item(1).Tolerance.HoleTolerancedas Toleranzfeld als String aber nur z.B h7 ohne die GrenzmaßeMFG
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Arbeitsblattformate
VOSTA1 am 15.07.2005 um 14:58 Uhr (0)
falls einer die sub auspropiert sub Blattgröße in Blattgroesse umbenennen Variablen und Sub nie gleich benennen! Sub Blattgroesse() Dim zeichnung As DrawingDocument Set zeichnung = ThisApplication.ActiveDocument Dim blatt As Sheet Set blatt = zeichnung.ActiveSheet Blattgröße = blatt.Size End Sub Das müßte es sein was gesucht wird Sub Blattgroeße() Dim zeichnung As DrawingDocument Set zeichnung = ThisApplication.ActiveDocument Dim blatt As Sheet Set blatt ...
|
| In das Form INVENTOR VBA wechseln |
